This document will be incomplete if rgdal is unavailable or there is on internet connection when this document is compiled. The full document is at diseasemapping.r-forge.r-project.org.
See mc.bbbike.org/mc for examples more map tiles (not all of which are compatible with mapmisc).
The following are some examples of maps produced with mymap=openmap(x, path="something")
plot(openmap(x,path="osm"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-admin"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-roads-grey"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-roads"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-semitransparent"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-no-labels"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-de"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-transport"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="bw-mapnik"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-cyclemap"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plotRGB(openmap(x,path="osm-seamap"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="osm-fr"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="landscape"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography by Thunderforest
plot(openmap(x,path="hyda"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="hyda-base"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="hyda-roads"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="opentopomap"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="maptoolkit"))
© Toursprung GmbH Data by OpenStreetMap, available under the Open Database License
plotRGB(openmap(x,path="waze"))
plotRGB(openmap(x,path="waze-us"))
plot(openmap(x,path="humanitarian"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography by Humanitarian OSM team is licensed as CC BY-SA.
plot(openmap(x,path="cartodb"))
Map tiles by CartoDB under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plot(openmap(x,path="cartodb-dark"))
Map tiles by CartoDB under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plotRGB(openmap(x,path="nrcan"))
Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.
plotRGB(openmap(x,path="nrcan-text"))
Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.
plotRGB(openmap(x,path="nrcan-text-fr"))
Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.
plot(openmap(x,path="spinal"))
Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plot(openmap(x,path="neighbourhood"))
Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plot(openmap(x,path="pioneer"))
Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plot(openmap(x,path="mobile-atlas"))
Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plotRGB(openmap(x,path="wikimedia"))
© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.
plot(openmap(x,path="sputnik"))
plotRGB(openmap(x,path="stamen-toner"))
Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License
plotRGB(openmap(x,path="stamen-watercolor"))
Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA
plot(openmap(x,path="stamen-terrain"))
Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA
plotRGB(openmap(x,path="stamen-terrain-labels"))
Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA
plot(openmap(x,path="stamen-terrain-background"))
Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA
See mc.bbbike.org/mc
Michelin
mPath = osmTiles(paste(
'http://map3.viamichelin.com/map/mapdirect?map=',
c('light','viamichelin'), '&', sep=''),
xyz='zxy=', suffix =
'&format=png&version=201503191157&layer=background')## Warning in if (name %in% names(result)) {: the condition has length > 1 and
## only the first element will be used
africaMichelin = openmap(
africaExtent, path=mPath,
zoom=2,
verbose=TRUE,
crs = crsMerc)## zoom is 2 , 1 tiles
## http://map3.viamichelin.com/map/mapdirect?map=viamichelin&
## http://map3.viamichelin.com/map/mapdirect?map=viamichelin&
## tile /tmp/mapmiscCache_patrick/map3.viamichelin.com.map.mapdirect.map.viamichelin/z=2&x=2&y=1&format=png&version=201503191157&layer=background cached
## http://map3.viamichelin.com/map/mapdirect?map=light&
## http://map3.viamichelin.com/map/mapdirect?map=light&
## tile /tmp/mapmiscCache_patrick/map3.viamichelin.com.map.mapdirect.map.light/z=2&x=2&y=1&format=png&version=201503191157&layer=background cached
## reprojecting 65536 cells...tiles arrived in the desired projection
## copying colortable for http...map3.viamichelin.com.map.mapdirect.map.viamichelin.
## copying colortable for http...map3.viamichelin.com.map.mapdirect.map.light.
for(D in names(africaMichelin)) {
plot(africaMichelin[[D]])
mtext(D, side=3, line=-2, outer=FALSE)
} Stamen retina
sPath = osmTiles('stamen-toner',
suffix = '@2x.png')
africaS = openmap(
africaTiles,
buffer=-1,
zoom=attributes(africaTiles)$tiles$zoom+1,
path=sPath, verbose=TRUE)## zoom is 3 , 4 tiles
## http://d.tile.stamen.com/toner/
## http://d.tile.stamen.com/toner/
## tile /tmp/mapmiscCache_patrick/stamen.com.toner/3/4/2@2x.png cached
## tile /tmp/mapmiscCache_patrick/stamen.com.toner/3/4/3@2x.png cached
## tile /tmp/mapmiscCache_patrick/stamen.com.toner/3/5/2@2x.png cached
## tile /tmp/mapmiscCache_patrick/stamen.com.toner/3/5/3@2x.png cached
## reprojecting 1048576 cells...tiles arrived in the desired projection
africaS2 = tonerToTrans(africaS)
plot(africaTiles[['opentopomap']])plot(africaS2, add=TRUE)
mtext(sPath, side=3, line=-2, outer=FALSE)Komoot, Yandex, ESRI, F4map, and Sigma
otherPaths = c(
'https://a.tile.hosted.thunderforest.com/komoot-2/',
'https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0&',
'https://vec02.maps.yandex.net/tiles?l=map&v=4.40&',
'https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/',
'https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/',
'https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/',
'https://tile2.f4map.com/tiles/f4_2d/',
'http://tiles1.sigma-dc-control.com/layer8/')
africaExtra = openmap(
africaExtent, path=otherPaths,
zoom=2,
verbose=TRUE,
crs = crsMerc)## zoom is 2 , 1 tiles
## http://tiles1.sigma-dc-control.com/layer8/
## http://tiles1.sigma-dc-control.com/layer8/
## tile /tmp/mapmiscCache_patrick/tiles1.sigma.dc.control.com.layer8/2/2/1.png cached
## https://tile2.f4map.com/tiles/f4_2d/
## https://tile2.f4map.com/tiles/f4_2d/
## tile /tmp/mapmiscCache_patrick/tile2.f4map.com.tiles.f4_2d/2/2/1.png cached
## https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/
## https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/
## tile /tmp/mapmiscCache_patrick/services.arcgisonline.com.ArcGIS.rest.services.Ocean.World_Ocean_Base.MapServer.tile/2/1/2.jpg cached
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/
## tile /tmp/mapmiscCache_patrick/server.arcgisonline.com.ArcGIS.rest.services.World_Imagery.MapServer.tile/2/1/2.jpg cached
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/
## tile /tmp/mapmiscCache_patrick/server.arcgisonline.com.ArcGIS.rest.services.World_Physical_Map.MapServer.tile/2/1/2.jpg cached
## https://vec02.maps.yandex.net/tiles?l=map&v=4.40&
## https://vec02.maps.yandex.net/tiles?l=map&v=4.40&
## tile /tmp/mapmiscCache_patrick/vec02.maps.yandex.net.tiles.l.map.v.4.40/x=2&y=1&z=2 cached
## https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0&
## https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0&
## tile /tmp/mapmiscCache_patrick/sat01.maps.yandex.net.tiles.l.sat.v.1.35.0/x=2&y=1&z=2 cached
## https://a.tile.hosted.thunderforest.com/komoot-2/
## https://a.tile.hosted.thunderforest.com/komoot-2/
## tile /tmp/mapmiscCache_patrick/hosted.thunderforest.com.komoot.2/2/2/1.png cached
## reprojecting 65536 cells...tiles arrived in the desired projection
## copying colortable for http...tiles1.sigma.dc.control.com.layer8.
## copying colortable for https...tile2.f4map.com.tiles.f4_2d.
## copying colortable for https...vec02.maps.yandex.net.tiles.l.map.v.4.40.
## copying colortable for https...a.tile.hosted.thunderforest.com.komoot.2.
Spaths = unique(
gsub("(red|green|blue|trans)$", "",
names(africaExtra), ignore.case=TRUE)
)
for(D in Spaths) {
oneTileName = grep(paste("^", D, "$", sep=""),
names(africaExtra), value=TRUE)
threeTilesName = grep(paste("^", D,
"([rR]ed|[gG]reen|[bB]lue)$", sep=""),
names(africaExtra),value=TRUE)
if(length(threeTilesName)==3) {
plotRGB(africaExtra[[threeTilesName]])
} else {
plot(africaExtra[[oneTileName]])
}
mtext(D, side=3, line=-2, outer=FALSE)
}